home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Super Shareware Collection
/
Super Shareware Collection.iso
/
os_2
/
rxapfd.zip
/
RC2.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-02-01
|
636b
|
26 lines
/* Rexx */
Signal On Syntax
Parse Arg pq, tpid, convid
convtype = 'mfn' /* mapped, full-duplex, non-blocking */
rswd = 'y'
/* Route incoming data from APPC into a PmPrintf window */
appcrc = rxappc('Receive_and_Wait',convtype,tpid,convid,rswd,10000,'inf.')
Do While appcrc = 0
if left(inf.2,1) = 'D' then
call rxpmprintf pq,Cryption(inf.5)
appcrc = rxappc('Receive_and_Wait',convtype,tpid,convid,rswd,10000,'inf.')
End
Return
Cryption:
Return BitXor(Arg(1),Copies('ff'x,Length(Arg(1))))
Syntax:
Call rxpmprintf pq,ErrorText(rc)'0d0a'x||sourceline(sigl),'Rexx Syntax Error at line' sigl
Exit